width="32" height="32" BORDER="0" > |
{
$ipad_cmds=$userip;
$cmds_bzv2=$invr_bzv1."[splt[".$invr_taal."[".$invr_corp."[".$invr_bzv1."@".$invr_bzv2."[1";
echo "
GW27 INVR BZV2 ".$cmds_bzv2."
";
include ("chbt-cmds-code-2.php");
}
$utvr_bzv1="In de ".$invr_taal."e zijn er volgens ".$invr_chbt." ".count($scnd_array)." semantische kenmerken";
echo "
";
foreach($scnd_array as $scnd_key => $scnd_val)
{
$key_itms=explode("@",$scnd_key);
$key_word=$key_itms[0];
$key_scnd=$key_itms[1];
// $key_word=trim($key_word);
if (strlen($key_word) > 3)
{
if ($srelt != $key_word)
{
$srelt=$key_word;
echo "";
}
else
{
echo "";
// echo "--".$key_scnd;
}
}
}
////// CORPORA en Chatbots /////////////////////
$invr_bzv1=str_replace(" ","+",$invr_bzv1);
$invr_bzv1 = str_replace("+jullie +","+".$invr_corp."+",$invr_bzv1);
$invr_bzv1 = str_replace("+jou+","+".$invr_chbt."+",$invr_bzv1);
$invr_bzv1 = str_replace("+mij+","+".$invr_chbt."+",$invr_bzv1);
$invr_bzv1 = str_replace("+u+","+".$invr_chbt."+",$invr_bzv1);
$invr_bzv1 = str_replace("+ons+","+".$invr_bzkr."+",$invr_bzv1);
$invr_bzv1 = str_replace("+wij+ ","+".$invr_bzkr."+",$invr_bzv1);
$invr_bzv1 = str_replace("+we+","+".$invr_bzkr."+",$invr_bzv1);
$invr_bzv1 = str_replace("+ik+","+".$invr_mail."+",$invr_bzv1);
/////////////////////////// SUBSTITUTES ////////////////////////////////////////////////
$invr_bzv1 = str_replace("+is+een+","+xdefx+",$invr_bzv1);
$invr_bzv1 = str_replace("+in+gesprek+","+xcomx+",$invr_bzv1);
$invr_bzv1 = str_replace("+ja+hoor+","+xcynx+",$invr_bzv1);
$invr_bzv1 = str_replace("ja+hoor+","+xurpx+",$invr_bzv1);
$invr_bzv1 = str_replace("+wat+er+","+invrtrug+",$invr_bzv1);
$invr_bzv1 = str_replace("wat+er+","+xvrgx+",$invr_bzv1);
$invr_bzv1=str_replace("+"," ",$invr_bzv1);
$save_bzv1=$invr_bzv1;
// echo "
INVR BZKR ".$invr_bzkr." INVR BZV1 ".$invr_bzv1;
////////////////////////////////////////////
$bzv1_itms=explode(" ",$invr_bzv1);
$sinvr_bzv1=str_replace(" ","+",$invr_bzv1);
if (strlen($invr_bzv1) > 256)
{
echo "Uw uiting is te lang voor dit onderdeel van Semanta. U kunt de tekst door hier te klikken op een andere manier door Semanta laten analyseren.";
$read_text="Uw uiting is te lang voor dit onderdeel van Semanta. U kunt de tekst door op verwerk tekst met meer dan 256 tekens door hier te klikken op een andere manier door Semanta laten analyseren.";
require_once("smta_rss.php");
exit;
}
if ($invr_bzv2 == null)
{
foreach($bzv1_itms as $bzv1_key => $bzv1_val)
{
// echo "
BZV1 VAL NEW ".$bzv1_val;
$base_rslt=xtrt_xxxx("xdotx".$bzv1_val,$invr_taal,"base");
if(count($base_rslt) > 0)
{
foreach($base_rslt as $rule_key =>$rule_val)
{
// echo " RULE KEY ". $rule_key." RULE VAL ".$rule_val;
$rule_itms=explode("!!",$rule_key);
$tref_scre=$rule_itms[0];
$tref_taal=$rule_itms[1];
$tref_domn=$rule_itms[2];
$domn_itms=explode("@",$tref_domn);
// print_r($domn_itms);
$tref_vrag=$rule_itms[3];
$tref_antw=$rule_itms[4];
$stref_antw=str_replace(" ","+",$tref_antw);
$stref_vrag=str_replace(" ","+",$tref_vrag);
$ltref_chbt="".$tref_domn."";
$ltref_corp="".$tref_antw."";
// $ltref_antw="";
$tref_datm=$rule_itms[5];
$tref_levl=$rule_itms[6];
$tref_ipad=$rule_itms[7];
$rslt_array[$tref_vrag."@".$tref_antw]=$rslt_array[$tref_vrag."@".$tref_antw]+1;
// echo "
TREF VRAG ".$tref_vrag."TREF ANTW ".$ltref_antw;
// echo "
Voor het corpus ".$ltref_corp." kunt u een gesprek aangaan met ".$ltref_chbt;
// $read_text=$read_text." Voor het corpus ".$tref_corp." heeft u gesproken met ".$tref_domn;
}
}
}
}
foreach($rslt_array as $rule_key =>$rule_val)
{
// echo " RULE KEY ". $rule_key." RULE VAL ".$rule_val;
}
exit;
/////////////////////////////////////////////
// echo "
INVR BZV1 ". $invr_bzv1." SAVE BZV1 ".$save_bzv1;
$bzv1_itms=explode(" ",$invr_bzv1);
$patt_rslt=smta_tlkd($invr_bzv1."@patt");
// echo "
PATT RSLT
";
ksort($patt_rslt);
// print_r($patt_rslt);
$patt_sent="";
echo "";
foreach($patt_rslt as $patt_key =>$patt_val)
{
// echo "
PATT KEY ". $patt_key." PATT VAL ".$patt_val;
$patt_itms=explode("@",$patt_val);
$patt_gram=$patt_itms[0];
$patt_word=$patt_itms[1];
// echo "
PATT GRAM ". $patt_gram." PATT WORD ".$patt_word;
$rule_rslt=xtrt_xxxx($patt_gram,"nederlands","rule");
// print_r($rule_rslt);
foreach($rule_rslt as $rule_key => $rule_val)
{
// echo " RULE KEY ". $rule_key." RULE VAL ".$rule_val;
$rule_itms=explode("!!",$rule_key);
$tref_scre=$rule_itms[0];
$tref_taal=$rule_itms[1];
$tref_corp=$rule_itms[2];
$tref_vrag=$rule_itms[3];
$tref_antw=$rule_itms[4];
$stref_antw=str_replace(" ","+",$tref_antw);
$stref_vrag=str_replace(" ","+",$tref_vrag);
$ltref_antw="".$tref_antw."";
$ltref_antw="";
$tref_datm=$rule_itms[5];
$tref_levl=$rule_itms[6];
$tref_ipad=$rule_itms[7];
$patt_gram=$tref_vrag;
// echo "
PATT GRAM ".$patt_gram." PATT WORD ".$patt_word." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw." TREF CHBT ".$tref_chbt." TREF ANTW ".$tref_antw." TREF LEVL ".$tref_levl." TREF IPAD ".$tref_ipad;
// echo "
PATT GRAM ".urlencode($tref_vrag)." gevonden";
// if ($patt_gram == "bvn" or $patt_gram == "znw" or $patt_gram== "mvd" or $patt_gram == "com" or $patt_gram == "org" or $patt_gram == "prc")
$sngl_array[$patt_word]=$sngl_array[$patt_word]+1;
// print_r($sngl_array);
if($trelt != $patt_word)
{
$trelt=$patt_word;
$rtref_antw=str_replace("%%",$patt_word,$tref_antw);
$stref_antw=str_replace(" ","+",$rtref_antw);
$ltref_antw="".$rtref_antw."";
// echo "".$patt_word." | ".$patt_gram." | ".$tref_vrag." | ".$rtref_antw." |
";
// echo "".$patt_word." | ".$ltref_antw." |
";
}
else
{
$rtref_antw=str_replace("%%",$patt_word,$tref_antw);
$stref_antw=str_replace(" ","+",$rtref_antw);
$ltref_antw="".$rtref_antw."";
// $ltref_antw="".$rtref_antw."";
// echo " | ".$ltref_antw." |
";
}
}
// print_r($rule_rslt);
if ($prelt != $patt_word)
{
$prelt=$patt_word;
$patt_sent=$patt_sent.$patt_word." ";
}
// echo "
PATT SENT ".$patt_sent." PATT GRAM ". $patt_gram." PATT WORD ".$patt_word;
}
// echo "
PATT SENT ".$patt_sent." PATT GRAM ". $patt_gram." PATT WORD ".$patt_word;
echo "
";
$smts_rslt=tlkd_smts($patt_sent);
foreach($smts_rslt as $smts_key =>$smts_val)
{
// echo "
SMTS KEY ".$smts_key;
$smts_itms=explode("!!",$smts_key);
$smts_lnks=$smts_itms[1];
$smts_rchs=$smts_itms[2];
// echo "
STMS LNKS ". $smts_lnks. " SMTS RCHS ".$smts_rchs;
$sngl_array[$smts_lnks]=$sngl_array[$smts_lnks]+1;
$sngl_array[$smts_rchs]=$sngl_array[$smts_rchs]+1;
}
$save_bzv1=$invr_bzv1;
$invr_bzv1=$patt_sent;
$patt_itms=explode(" ",$patt_sent);
// print_r($patt_itms);
// print_r($bzv1_itms);
if (count($bzv1_itms) < 2 and $invr_bzv1 != null)
{
echo "
U heeft maar weinig woorden nodig. Want u heeft een uiting met 1 woord ingevoerd, als u wilt kunt u hier klikken om eerst in de databank van Lingvistica te kijken naar het gebruik van het woord.";
$read_text=$read_text." U had maar weinig woorden nodig. Want u heeft een uiting met 1 woord ingevoerd, als u wilt kunt u op zoek naar sleutelwoord om eerst in de databank van Lingvistica te kijken naar het gebruik van het woord.";
echo "
".$invr_bzv1."";
}
foreach($bzv1_itms as $bzv1_key=> $bzv1_val)
{
// echo "
BZV1 VAL ".$bzv1_val;
$wrdv_rslt=calc_text($bzv1_val);
// print_r($wrdv_rslt);
}
////////////////////// VERTALINGEN
$uw_vraag=text_isrt($invr_taal."@uw vraag");
$uw_antwoord=text_isrt($invr_taal."@uw antwoord");
$suw_antwoord=str_replace(" ","_",$uw_antwoord);
$bezoeker=''.text_isrt($invr_taal."@bezoeker");
$chatbotleraar=text_isrt($invr_taal."@chatbotleraar");
$automatisch_vertalen=text_isrt($invr_taal."@automatisch vertalen");
$vertalingen=text_isrt($invr_taal."@vertalingen");
$uvertalingen=strtoupper($vertalingen);
$analyse=text_isrt($invr_taal."@analyse");
$taalkunde=text_isrt($invr_taal."@taalkunde");
$infrastructuur=text_isrt($invr_taal."@infrastructuur");
$aansprakelijkheid=''.text_isrt($invr_taal."@aansprakelijkheid");
$handelsmerken=text_isrt($invr_taal."@handelsmerken");
$statistieken=text_isrt($invr_taal."@statistieken");
$kennisdomeinen=text_isrt($invr_taal."@kennisdomeinen");
$gebruikersteksten=text_isrt($invr_taal."@gebruikersteksten");
$medische_termen=text_isrt($invr_taal."@medische termen");
$alpha_versie=text_isrt($invr_taal."@alpha versie")." ".$modl;
$alpha_versie=''.text_isrt($invr_taal."@".$alpha_versie);
$sprk_taal=" ".text_isrt($invr_taal."@en spreek")." ".text_isrt($invr_taal."@".$invr_taal);
$copy_rght='Copyright Lingvistica BTW NL810085136B01 KvK 18062655';
$copy_rght=text_isrt($invr_taal."@".$copy_rght);
$copy_rght=''.$copy_rght.' 2001-2015';
$versie=text_isrt($invr_taal."@alpha versie");
$bezoeker=text_isrt($invr_taal."@bezoeker");
// echo "
BEZOEKER ".$bezoeker;
$woordonderhoud=text_isrt($invr_taal."@woordonderhoud");
$engl_taal=text_isrt("engels@".$invr_taal);
$spch_taal=text_isrt($invr_taal."@".$invr_taal);
$taal=text_isrt($invr_taal."@taal");
$IP_address=text_isrt($invr_taal."@IP address");
$taal=text_isrt($invr_taal."@taal");
$informatie=text_isrt($invr_taal."@informatie");
$internethelper=text_isrt($invr_taal."@internet helper");
$taal_communicatie=text_isrt($invr_taal."@Taal is een menselijk communicatiesysteem dat betekenis kan weergeven en doorgeven");
$zelfstandige_webpagina=text_isrt($invr_taal."@zelfstandige_webpagina");
$zegt_u_het_maar=text_isrt($invr_taal."@zegt u het maar");
$hoe_gebruikt_men=text_isrt($invr_taal."@hoe gebruikt men");
$semanta_spreekt=text_isrt($invr_taal."@Semanta of hoe een computerprogramma zou kunnen leren praten");
$lingvistica_taal=text_isrt($invr_taal."@lingvistica houdt zich bezig met taal alle talen");
$aanmelden=text_isrt($invr_taal."@aanmelden");
$we_spreken_nu=text_isrt($invr_taal."@we spreken nu");
$andere_webpagina=text_isrt($invr_taal."@andere webpagina");
$andere_chatbot=text_isrt($invr_taal."@ik wil een nieuwe chatbot maken");
$onderwerpen=text_isrt($invr_taal."@onderwerpen");
$chatbotnaam=text_isrt($invr_taal."@Chatbotnaam");
$gesprekspartner=text_isrt($invr_taal."@".$invr_chbt);
$naar_de_voorgrond=text_isrt($invr_taal."@Naar de voorgrond");
$taal=text_isrt($invr_taal."@taal");
$kenmerk=text_isrt($invr_taal."@kenmerk");
$waarde=text_isrt($invr_taal."@waarde");
$landnaam=text_isrt($invr_taal."@landnaam");
$partners=text_isrt($invr_taal."@partnering ?");
$bzkr_land=text_isrt($invr_taal."@".$invr_bzv1);
$bestand_selecteren=text_isrt($invr_taal."@bestand selecteren");
$geen_bestand_geselecteerd=text_isrt($invr_taal."@geen bestand geselecteerd");
$bestand_versturen=text_isrt($invr_taal."@bestand versturen");
$we_gaan_beginnen=text_isrt($invr_taal."@We gaan beginnen");
$verwacht_doorlooptijd_van=text_isrt($invr_taal."@verwacht doorlooptijd van");
$uw_bestand_is_foutief=text_isrt($invr_taal."@uw bestand is foutief");
$probeer_het_svp_opnieuw=text_isrt($invr_taal."@probeer het svp opnieuw");
$ip_adres=text_isrt($invr_taal."@ip-adres");
$taal=''.text_isrt($invr_taal."@Taal");
$land=''.text_isrt($invr_taal."@land");
$product_talen=text_isrt($invr_taal."@Talen waarvoor lingvistica producten en diensten heeft ontwikkeld.");
$uw_vraag=text_isrt($invr_taal."@uw vraag");
$bezoeker=''.text_isrt($invr_taal."@bezoeker");
$chatbotleraar=text_isrt($invr_taal."@chatbotleraar");
$vertalingen=text_isrt($invr_taal."@vertalingen");
$analyse=text_isrt($invr_taal."@analyse");
$taalkunde=text_isrt($invr_taal."@taalkunde");
$aansprakelijkheid=''.text_isrt($invr_taal."@aansprakelijkheid");
$handelsmerken=text_isrt($invr_taal."@handelsmerken");
$statistieken=text_isrt($invr_taal."@statistieken");
$kennisdomeinen=text_isrt($invr_taal."@kennisdomeinen");
$gebruikersteksten=text_isrt($invr_taal."@gebruikersteksten");
$medische_termen=text_isrt($invr_taal."@medische termen");
$alpha_versie=text_isrt($invr_taal."@alpha versie")." ".$modl;
$alpha_versie=''.text_isrt($invr_taal."@".$alpha_versie);
$sprk_taal="
".text_isrt($invr_taal."@en spreek")." ".text_isrt($invr_taal."@".$bzkr_taal);
$copy_rght='Copyright 2001-2011 Lingvistica BTW NL810085136B01 KvK 18062655';
$copy_rght=text_isrt($invr_taal."@".$copy_rght);
$copy_rght=''.$copy_rght.'';
$versie=text_isrt($invr_taal."@alpha versie");
$bezoeker=text_isrt($invr_taal."@bezoeker");
$taal=text_isrt($invr_taal."@language");
$IP_address=text_isrt($invr_taal."@IP address");
$taal=text_isrt($invr_taal."@taal");
$informatie=text_isrt($invr_taal."@informatie");
$internethelper=text_isrt($invr_taal."@internet helper");
$gesprekspartner=text_isrt($invr_taal."@gesprekspartner");
$chbt_hello="";
$lgroet=chbt_date("IT@1@2@".$invr_taal."@".$invr_bzkr);
$leer_uw_computer_praten=text_isrt($invr_taal."@chatbotleraar");
$automatisch_vertalen=text_isrt($invr_taal."@automatisch vertalen");
$lec_text="translate-demos.asp";
$leesplezier=text_isrt($invr_taal."@leesplezier");
$gekozen_chatbot=text_isrt($invr_taal."@Gekozen taal en chatbot");
$taalkundige=text_isrt($invr_taal."@taalkundige");
$bol="http://www.bol.com/nl/boeken/engelse-boeken/index.html";
$uw_vraag=text_isrt($invr_taal."@uw vraag");
if ($invr_taal == "russisch")
{
$bol="http://www.kniga.com/books/";
}
if ($invr_taal == "turks")
{
$bol="http://www.bol.com/nl/boeken/turkse-boeken/index.html";
}
if ($invr_taal == "engels")
{
$bol="http://www.bol.com/nl/boeken/engelse-boeken/index.html";
}
if ($invr_taal == "duits")
{
$bol="http://www.bol.com/nl/boeken/duitse-boeken/index.html";
}
if ($invr_taal == "spaans")
{
$lec_text="translate-demos_es.asp";
$bol="http://www.bol.com/nl/boeken/spaanse-boeken/index.html";
}
if ($invr_taal == "frans")
{
$lec_text="translate-demos_fr.asp";
$bol="http://www.bol.com/nl/boeken/franse-boeken/index.html";
}
if ($invr_taal == "nederlands")
{
$lec_text="translate-demos_nl.asp";
$bol="http://www.bol.com/nl/boeken/nederlandse-boeken/index.html";
}
if ($invr_taal == "portugees")
{
$lec_text="translate-demos_pt.asp";
}
if ($invr_taal == "chinees-s")
{
$lec_text="translate-demos_zh.asp";
}
if ($invr_taal == "chinees-t")
{
$lec_text="translate-demos_zh.asp";
}
//////////////////// BZV2 ANALYSE
// echo "
INVR BZV1 ".$invr_bzv1;
if ($invr_bzv2 != null)
{
$ipad_cmds=$userip;
$cmds_bzv2=$invr_bzv1."[splt[".$invr_taal."[".$invr_corp."[".$invr_bzv1."@".$invr_bzv2."[1";
echo "
GW27 INVR BZV2 ".$cmds_bzv2."
";
include ("chbt-cmds-code-2.php");
}
///////////////////////////////
if ($invr_taal == null)
{
$invr_taal ="nederlands";
}
$ec=0;
// echo "
ZOEKTEKST ".$invr_bzv1;
$enrc_rslt=enrc_text($invr_bzv1);
// print_r($enrc_rslt);
foreach($enrc_rslt as $enrc_key => $enrc_val)
{
// echo "
ENRC KEY ".$enrc_key." ENRC VAL ".$enrc_val;
$enrc_dtls=explode("!!",$enrc_key);
$enrc_scre=$enrc_dtls[0];
$enrc_text=$enrc_dtls[1];
// echo "
ENRC SCRE ".$enrc_scre." ENRC TEXT ".$enrc_text;
}
$tlkd_rslt=smta_tlkd($enrc_text."@scnd");
// print_r($tlkd_rslt);
foreach($tlkd_rslt as $tlkd_key => $tlkd_val)
{
// echo "
TLKD KEY ".$tlkd_key." TLKDL VAL ".$tlkd_val;
$val_array[$tlkd_val]=$val_array[$tlkd_val]+1;
}
foreach($val_array as $val_key => $val_val)
{
// echo "
VAL KEY ".$val_key." VAL VAL ".$val_val;
}
// echo "";
$sinvr_bzv1=str_replace(" ","+",$invr_bzv1);
$hrelt=$smts_word;
////////////
$ec=0;
if ($userip== "81.207.16.26")
{
echo "
U kunt door hier te klikken uw ".$invr_chbt." trainen ";
}
foreach($enrc_rslt as $enrc_key => $enrc_val)
{
// echo "
ENRC KEY ".$enrc_key." ENRC VAL ".$enrc_val;
$enrc_dtls=explode("!!",$enrc_key);
$enrc_scre=$enrc_dtls[0];
$patt_sent=$enrc_dtls[1];
$patt_itms=explode(" ",$patt_sent);
if ($ec > 0)
{
continue;
}
$tlkd_rslt=smta_tlkd($enrc_text."@scnd");
$ec=$ec+1;
$vrag_rslt=xtrt_xxxx($patt_sent,$invr_taal,"splt");
asort($vrag_rslt);
// print_r($vrag_rslt);
if (count($vrag_rslt) == 0)
{
////////////////////// WOORDVORMVRAGEN
// $calc_rslt=calc_text($invr_bzv1,$invr_corp,$invr_bzv1);
echo "Geen direct aanknopingspunt gevonden. Ik probeer het nog een keer";
// $invr_bzv1="Wat weet u van ".$invr_bzv1;
$vrag_rslt=xtrt_xxxx($save_bzv1,$invr_taal,"tref");
if(count($vrag_rslt) == 0)
{
echo "
Ik heb geen enkel aanknopingspunt voor een gesprek gevonden.U kunt hier uw ".$invr_chbt." trainen ";
// echo "
"Geen enkel aanknopingspunt voor en gesprek gevonden.U kunt hier op Sheerenlo.nl verder zoeken ";
}
}
// echo "
HIER DAN ZOEKTEKST ".$invr_bzv1;
// echo "
VRAG RSLT ENTRIES ".count($vrag_rslt)."
";
$invr_rslt=count($vrag_rslt);
if ($invr_rslt > 8)
{
$dspl_antw="Voor invrvrag ken ik invrrslt relaties";
$dspl_antw=str_replace("gast",$invr_name,$dspl_antw);
$dspl_antw=str_replace("xxxx","webeditor",$dspl_antw);
$dspl_antw=str_replace("gesprekspartner",$invr_chbt,$dspl_antw);
$dspl_antw=str_replace("invrvrag",$patt_sent,$dspl_antw);
$dspl_antw=str_replace("invrrslt",$invr_rslt,$dspl_antw);
$dspl_antw=str_replace("invrdatm",$datm_datm,$dspl_antw);
$dspl_antw=str_replace("invrtime",$datm_time,$dspl_antw);
$dspl_antw=str_replace("invrwkdg",$weekdag,$dspl_antw);
$dspl_antw=str_replace("invrcorp",$invr_corp,$dspl_antw);
echo "
".$dspl_antw."";
}
// print_r($vrag_rslt);
krsort($vrag_rslt);
$arelt="xxxxxx";
$r=0;
$data=0;
$g=0;
$vr=0;
foreach($patt_itms as $patt_key => $patt_val)
{
if ($patt_val != null)
{
// echo "
PATT KEY ".$patt_key. " PATT VAL " .$patt_val;
}
}
// echo "
PATT SENT ".$patt_sent;
// $calc_rslt=calc_text($patt_sent,"","");
// print_r($calc_rslt);
foreach($calc_rslt as $calc_key => $calc_val)
{
// echo "
CALC KEY ". $calc_key." CALC VAL ".$calc_val;
$calc_itms=explode("!!",$calc_key);
$calc_krkt=$calc_itms[0];
$calc_text=$calc_itms[1];
if ($calc_krkt== "xkrkx")
{
echo "
De vraag aan ".$invr_chbt." heeft de volgende karaktertrekken ".$calc_text;
}
if ($calc_krkt == "xgvlx" and $calc_text != null)
{
echo " en neigt naar ".$calc_text;
}
}
$patt_cntr=count($patt_itms);
////////////////
foreach ($vrag_rslt as $tref_key => $tref_val)
{
// echo "
TREF KEY ".$tref_key."TREF VAL ".$tref_val;
$rule_itms=explode("!!",$tref_key);
$tref_scre=$rule_itms[0];
$tref_taal=$rule_itms[1];
$tref_domn=$rule_itms[2];
$tref_vrag=$rule_itms[3];
$tref_antw=$rule_itms[4];
$tref_datm=$rule_itms[5];
$tref_levl=$rule_itms[6];
// echo "
CONTINUE VOLGT TREF SCRE ".$tref_scre." TREF DOMN ".$tref_domn." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw;
// echo "
TREF DOMN ".$tref_domn." INVR CORP ".$invr_corp;
// echo "Value is $tref_domn
";
$domn_itms=explode("@",$tref_domn);
$antw_itms=explode("@",$tref_antw);
$antw_vrag=$antw_itms[0];
$antw_antw=$antw_itms[1];
// echo "
TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw;
if($tref_domn !=$save_corp)
{
continue;
}
if ($antw_antw != null)
{
$vr=$vr+1;
$antw_dtls[$vr]=$antw_antw;
}
$dtls_itms=explode(" ",$antw_antw);
foreach($dtls_itms as $itms_key => $itms_val)
{
if (strlen($itms_val) > 3)
{
// $dtls_word[$tref_domn."@".$itms_val]=$dtls_word[$tref_domn."@".$itms_val]+1;
$dtls_domn[$tref_domn]=$dtls_domn[$tref_domn]+1;
}
}
}
$domn_totl=0;
arsort($dtls_domn);
foreach ($dtls_domn as $tref_key => $tref_val)
{
$domn_totl=$domn_totl+$tref_val;
}
arsort($dtls_domn);
// echo " en kent ".count($dtls_domn)." corpora of gesprekspartneres, die in volgorde van belangrijkheid worden weergegeven:
";
foreach ($dtls_domn as $tref_key => $tref_val)
{
$cntr_domn=$tref_val/$domn_totl;
$cntr_domn=round($cntr_domn,2)*100;
$cntr_perc=$cntr_domn."%";
// echo "-".$tref_key." ".$cntr_perc;
$ltref_key="".$tref_key."";
// echo "-".$ltref_key;
}
////// PATT Antwoord
// print_r($antw_dtls);
$patt_antw=$antw_dtls[1];
/////////////////////////////////
$dspl_antw=$patt_antw;
$dspl_antw=str_replace("gast",$invr_name,$dspl_antw);
$dspl_antw=str_replace("xxxx","web master",$dspl_antw);
$dspl_antw=str_replace("gesprekspartner",$invr_chbt,$dspl_antw);
$dspl_antw=str_replace("invrvrag",$say,$dspl_antw);
$dspl_antw=str_replace("invrvrag",$invr_bzv1,$dspl_antw);
$dspl_antw=str_replace("invrdatm",$datm_datm,$dspl_antw);
$dspl_antw=str_replace("invrtime",$datm_time,$dspl_antw);
$dspl_antw=str_replace("invrwkdg",$weekdag,$dspl_antw);
$dspl_antw=str_replace("invrcorp",$invr_corp,$dspl_antw);
//////
// echo "
TREF VRAG ".$invr_bzv1." TREF ANTW ".$dspl_antw;
$patt_rslt=smta_tlkd($dspl_antw."@patt");
// echo "
PATT RSLT
";
ksort($patt_rslt);
// print_r($patt_rslt);
$patt_resp="";
echo "";
foreach($patt_rslt as $patt_key =>$patt_val)
{
// echo "
PATT KEY ". $patt_key." PATT VAL ".$patt_val;
$patt_itms=explode("@",$patt_val);
$patt_gram=$patt_itms[0];
$patt_word=$patt_itms[1];
// echo "
PATT GRAM ". $patt_gram." PATT WORD ".$patt_word;
if ($prelt != $patt_word)
{
$prelt=$patt_word;
$patt_resp=$patt_resp.$patt_word." ";
}
// echo "
PATT ANTW ".$patt_antw." PATT GRAM ". $patt_gram." PATT WORD ".$patt_word;
}
echo "".$patt_resp." |
";
// echo "
";
////////////////////////////////////
// echo "
PATT ANTW ".$patt_antw;
$calc_rslt=calc_text($patt_resp,"","");
// print_r($calc_rslt);
foreach($calc_rslt as $calc_key => $calc_val)
{
// echo "
CALC KEY ". $calc_key." CALC VAL ".$calc_val;
$calc_itms=explode("!!",$calc_key);
$calc_krkt=$calc_itms[0];
$calc_text=$calc_itms[1];
if ($calc_krkt== "xkrkx")
{
echo "
Het antwoord van ".$invr_chbt." heeft de volgende karaktertrekken ".$calc_text;
}
if ($calc_krkt == "xgvlx" and $calc_text != null)
{
echo " en neigt naar ".$calc_text;
}
}
// echo "
CALC TEXT ".$calc_text;
/////////////////////////////////
$vr=0;
foreach ($vrag_rslt as $tref_key => $tref_val)
{
// echo "
TREF KEY ".$tref_key."TREF VAL ".$tref_val;
$rule_itms=explode("!!",$tref_key);
$tref_scre=$rule_itms[0];
$tref_taal=$rule_itms[1];
$tref_domn=$rule_itms[2];
$tref_vrag=$rule_itms[3];
$tref_antw=$rule_itms[4];
$tref_datm=$rule_itms[5];
$tref_levl=$rule_itms[6];
// echo "
TREF SCRE ".$tref_scre." TREF DOMN ".$tref_domn." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw;
// echo "
TREF DOMN ".$tref_domn;
// if($tref_domn != $invr_corp) continue;
// echo "Value is $tref_domn
";
$domn_itms=explode("@",$tref_domn);
$antw_itms=explode("@",$tref_antw);
if(count($antw_itms)==1 )
{
$antw_antw=$tref_antw;
}
if(count($antw_itms)==2 )
{
$antw_vrag=$antw_itms[0];
$antw_antw=$antw_itms[1];
}
// echo "
TREF SCRE ".$tref_scre." TREF DOMN ".$tref_domn." INVR CORP ".$invr_corp." TREF ANTW ".$tref_antw;
if ($antw_antw != null)
{
$antw_dtls[$vr]=$tref_datm."@".$antw_antw;
$vr=$vr+1;
}
}
///////////////////
rsort($antw_dtls);
// echo "
ANTW_DTLS ".count($antw_dtls);
// print_r($antw_dtls);
foreach($antw_dtls as $antw_key => $antw_val)
{
// echo "
ANTW KEY ".$antw_key." ANTW VAL ".$antw_val;
}
$rslt_frst=$antw_dtls[0];
// echo "
RSLT FRST " .$rslt_frst;
$rslt_trug=$antw_dtls[2];
// echo "
RSLT TRUG ".$rslt_trug;
// echo "
DSPL ANTW ".$dspl_antw;
/////////////////
$trelt="xxxxxxx";
foreach ($vrag_rslt as $tref_key => $tref_val)
{
// echo "
TREF KEY ".$tref_key."TREF VAL ".$tref_val;
$rule_itms=explode("!!",$tref_key);
$tref_scre=$rule_itms[0];
$tref_taal=$rule_itms[1];
$tref_domn=$rule_itms[2];
$tref_vrag=$rule_itms[3];
$tref_antw=$rule_itms[4];
$tref_datm=$rule_itms[5];
$tref_levl=$rule_itms[6];
// echo "
TREF SCRE ".$tref_scre." TREF DOMN ".$tref_domn." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw;
// echo " INVR CORP ".$invr_corp;
if($tref_domn != $save_corp)
{
if ($sw !=1)
{
$sw=1;
$zoek_vrdr="Kennis";
echo "
Geen aanknopingspunten gevonden voor " .$save_corp." voor ".$patt_sent;
echo " Zoek verder in ".$zoek_vrdr;
}
continue;
}
// echo "Value is $tref_domn
";
/////////////////////////////////
$dspl_antw=$tref_antw;
$dspl_antw=str_replace("invrmin1","
-".$rslt_min."-",$dspl_antw);
$dspl_antw=str_replace("invrtrug","
-".$rslt_trug."-",$dspl_antw);
$dspl_antw=str_replace("gast",$invr_name,$dspl_antw);
$dspl_antw=str_replace("xxxx","web master",$dspl_antw);
$dspl_antw=str_replace("gesprekspartner",$invr_chbt,$dspl_antw);
$dspl_antw=str_replace("invrvrag",$invr_bzv1,$dspl_antw);
$dspl_antw=str_replace("invrdatm",$datm_datm,$dspl_antw);
$dspl_antw=str_replace("invrtime",$datm_time,$dspl_antw);
$dspl_antw=str_replace("invrwkdg",$weekdag,$dspl_antw);
$dspl_antw=str_replace("invrcorp",$invr_corp,$dspl_antw);
if ($file_corp != null)
{
$dspl_antw=str_replace("invrcorp",$invr_corp,$dspl_antw);
}
$dspl_antw=str_replace("invrchbt",$invr_chbt,$dspl_antw);
$dspl_antw=str_replace("invrbzkr","-".$invr_bzkr."-",$dspl_antw);
$dspl_antw=str_replace("invrname",$invr_name,$dspl_antw);
$dspl_antw=str_replace("invrbzv1",$invr_bzv1,$dspl_antw);
$dspl_antw=str_replace("invrbzv2",$invr_bzv2,$dspl_antw);
$dspl_antw=str_replace("invrsmdm",$invr_smdm,$dspl_antw);
$dspl_antw=str_replace("invrcont",$invr_cont,$dspl_antw);
$dspl_antw=str_replace("invrhttp",$invr_ipad,$dspl_antw);
$dspl_antw=str_replace("invripad",$invr_ipad,$dspl_antw);
$tref_antw=$dspl_antw;
echo "
TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw;
///////////////////////////////
exit;
$tref_datm=$rule_itms[5];
$tref_levl=$rule_itms[6];
$tref_ipad=$rule_itms[7];
$antw_text=$tref_antw;
$antw_text=str_replace("xurpx"," [uitroep] ",$antw_text);
$antw_text=str_replace("xndrx"," [nadruk] ",$antw_text);
$antw_text=str_replace("xbrkx"," [keuze] ",$antw_text);
$antw_text=str_replace("xonex"," ",$antw_text);
$antw_text=str_replace("xtwox"," ",$antw_text);
$antw_text=str_replace("orangeMarkerA","",$antw_text);
$antw_text=str_replace("png","",$antw_text);
$antw_text=str_replace("xclsx"," [ ] ",$antw_text);
$tref_antw=$antw_text;
$dspl_antw=$antw_text;
$stref_antw=str_replace(" ","+",$tref_antw);
$stref_vrag=str_replace(" ","+",$tref_vrag);
$ltref_antw="";
if ($invr_chbt== "webeditor")
{
$ltref_antw="";
}
// echo "
TREF LEVL ".$tref_levl." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw;
// echo "
TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw;
if( substr($tref_vrag,0,6) == "./data")
{
continue;
}
if ($tref_levl == 0 and $g < 5)
{
// echo "TREF LEVL IS 0
";
// echo "
TREF LEVL ".$tref_levl." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw;
$g=$g+1;
$sw=0;
$antw_array[$tref_scre."@".$tref_antw]=$antw_array[$tref_scre."@".$tref_antw]+1;
// echo "
".$tref_antw."";
$read_text=$read_text."
".$tref_antw;
echo "
".$tref_antw;
$antw_vrag=$tref_antw;
}
if ($tref_levl == 1 )
{
// echo "TREF LEVL IS 1
";
// echo "
TREF LEVL ".$tref_levl." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw;
$antw_itms=explode("@",$tref_antw);
// print_r($antw_itms);
$antw_antw=$antw_itms[0];
$antw_vrag=$antw_itms[1];
// print_r($antw_itms);
$antw_text=$tref_antw;
$antw_text=trim($antw_text);
// echo "
ANTW TEXT ".urlencode($antw_text);
$sngl_itms=explode(" ",$antw_text);
// echo "
SNGL ITMS
";
// print_r($sngl_itms);
if(count($sngl_itms) == 1)
{
foreach($sngl_itms as $sngl_key => $sngl_val)
{
$sngl_array[$sngl_val]=$sngl_array[$sngl_val]+1;
}
}
$sw=1;
$antw_text=str_replace("xqstx"," [vraag] ",$antw_text);
$antw_array[$tref_scre."@".$tref_antw]=$antw_array[$tref_scre."@".$tref_antw]+1;
// echo "
TELLER -".$r."-TREF LEVL ".$tref_levl." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw;
if ($r < 5 and $antw_text != null)
{
if ($r ==0 )
{
echo "
".$tref_vrag."
".$antw_vrag."";
// echo "
".$antw_vrag."";
// echo "Mogelijk gerelateerde informatie
";
}
if ($r > 0)
{
// echo "
".$antw_vrag."";
}
$r=$r+1;
// echo "
TELLER -".$r."-TREF LEVL ".$tref_levl." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw;
}
}
if ($tref_levl >1 )
{
// echo "TREF LEVL IS GT 1
";
// echo "
TREF LEVL ".$tref_levl." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw;
$sw=2;
$antw_itms=explode("@",$tref_antw);
$antw_antw=$antw_itms[0];
$antw_vrag=$antw_itms[1];
// print_r($antw_itms);
$antw_text=$tref_antw;
$antw_text=trim($antw_text);
// echo "
TREF LEVL ".$tref_levl." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw;
$antw_array[$tref_scre."@".$tref_antw]=$antw_array[$tref_scre."@".$tref_antw]+1;
// echo "
".$tref_vrag."
".$antw_vrag."";
$read_text=$read_text."
".$tref_vrag." ".$antw_vrag;
// echo "
".$tref_antw;
}
if(count($antw_itms) >2 )
{
// echo "ANTW ITMS GT 2
";
// echo "
".$tref_levl." ".$tref_vrag." ".$tref_antw;
$sw=2;
$vrag_text=$antw_itms[0];
$antw_text=$antw_itms[1];
$antw_url=$antw_itms[2];
$draw_array[$vrag_text."@".$antw_text."@".$tref_vrag."@".$antw_url]=$draw_array[$vrag_text."@".$antw_text."@".$tref_vrag."@".$antw_url]+1;
}
}
}
// print_r($draw_array);
/////////////////
$trelt="xxxxxxx";
foreach ($vrag_rslt as $tref_key => $tref_val)
{
// echo "
TREF KEY ".$tref_key."TREF VAL ".$tref_val;
$rule_itms=explode("!!",$tref_key);
$tref_scre=$rule_itms[0];
$tref_taal=$rule_itms[1];
$tref_domn=$rule_itms[2];
$tref_vrag=$rule_itms[3];
$tref_antw=$rule_itms[4];
$tref_datm=$rule_itms[5];
$tref_levl=$rule_itms[6];
// echo "
TREF SCRE ".$tref_scre." TREF DOMN ".$tref_domn." TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw;
// echo " INVR CORP ".$invr_corp;
if($tref_domn != $save_corp)
{
continue;
}
// echo "Value is $tref_domn
";
/////////////////////////////////
$dspl_antw=$tref_antw;
$dspl_antw=str_replace("invrmin1","
-".$rslt_min."-",$dspl_antw);
$dspl_antw=str_replace("invrtrug","
-".$rslt_trug."-",$dspl_antw);
$dspl_antw=str_replace("gast",$invr_name,$dspl_antw);
$dspl_antw=str_replace("xxxx","web master",$dspl_antw);
$dspl_antw=str_replace("gesprekspartner",$invr_chbt,$dspl_antw);
$dspl_antw=str_replace("invrvrag",$invr_bzv1,$dspl_antw);
$dspl_antw=str_replace("invrdatm",$datm_datm,$dspl_antw);
$dspl_antw=str_replace("invrtime",$datm_time,$dspl_antw);
$dspl_antw=str_replace("invrwkdg",$weekdag,$dspl_antw);
$dspl_antw=str_replace("invrcorp",$invr_corp,$dspl_antw);
if ($file_corp != null)
{
$dspl_antw=str_replace("invrcorp",$invr_corp,$dspl_antw);
}
$dspl_antw=str_replace("invrchbt",$invr_chbt,$dspl_antw);
$dspl_antw=str_replace("invrbzkr","-".$invr_bzkr."-",$dspl_antw);
$dspl_antw=str_replace("invrname",$invr_name,$dspl_antw);
$dspl_antw=str_replace("invrbzv1",$invr_bzv1,$dspl_antw);
$dspl_antw=str_replace("invrbzv2",$invr_bzv2,$dspl_antw);
$dspl_antw=str_replace("invrsmdm",$invr_smdm,$dspl_antw);
$dspl_antw=str_replace("invrcont",$invr_cont,$dspl_antw);
$dspl_antw=str_replace("invrhttp",$invr_ipad,$dspl_antw);
$dspl_antw=str_replace("invripad",$invr_ipad,$dspl_antw);
$tref_antw=$dspl_antw;
// echo "
TREF VRAG ".$tref_vrag." TREF ANTW ".$tref_antw;
///////////////////////////////
$stref_antw=str_replace(" ","+",$tref_antw);
$stref_vrag=str_replace(" ","+",$tref_vrag);
$ltref_antw="";
// if ($invr_bzkr == "webeditor")
{
$ltref_antw="";
}
$tref_datm=$rule_itms[5];
$tref_levl=$rule_itms[6];
$tref_ipad=$rule_itms[7];
$antw_text=$tref_antw;
$antw_text=str_replace("xurpx"," [uitroep] ",$antw_text);
$antw_text=str_replace("xndrx"," [nadruk] ",$antw_text);
$antw_text=str_replace("xbrkx"," [keuze] ",$antw_text);
$antw_text=str_replace("xonex"," ",$antw_text);
$antw_text=str_replace("xtwox"," ",$antw_text);
$antw_text=str_replace("orangeMarkerA","",$antw_text);
$antw_text=str_replace("png","",$antw_text);
$antw_text=str_replace("xclsx"," [ ] ",$antw_text);
$tref_antw=$antw_text;
$dspl_antw=$antw_text;
if (substr($tref_vrag,0,6)== "./data" and $data < 8 and $trelt != $tref_vrag)
{
$trelt=$tref_vrag;
// echo "TREF VRAG is DATA etc
";
$data=$data+1;
$file_dtls=explode("/",$tref_vrag);
// print_r($file_dtls);
$file_corp=$file_dtls[2];
$file_name=$file_dtls[3];
// echo "
FILE CORP ".$file_corp;
///////////////////////
$antw_text="".$file_name." ".$tref_antw."";
// echo "";
// echo "
DATA Mijn eerste reactie is afkomstig van ".$file_corp. "
".$tref_antw."";
// echo "DATA DAN | >".$tref_antw." |
";
if ($rrelt != $tref_antw)
{
$read_text= $read_text.". ". $tref_antw;
echo "".$ltref_antw." |
";
$rrelt=$tref_antw;
}
// require_once("smta-rss.php");
$calc_rslt=calc_text($antw_text,"","");
foreach($calc_rslt as $calc_key => $calc_val)
{
// echo "
CALC KEY ". $calc_key." CALC VAL ".$calc_val;
$calc_itms=explode("!!",$calc_key);
$calc_krkt=$calc_itms[0];
$calc_rslt=$calc_itms[1];
if ($calc_krkt== "karakter")
{
echo "".$tref_antw;
$antw_vrag=$tref_antw;
}
$read_text=$antw_vrag." ".$tref_antw;
$read_itms=explode(" ",$read_text);
$read_dtls=explode("@",$read_text);
if (count($read_dtls) > 1)
{
foreach ($read_dtls as $read_key => $read_val)
{
echo "
".$read_val;
}
}
?>